﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class UbicacionesFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As UbicacionesBE
        Dim tmpUbicaciones As UbicacionesBE = New UbicacionesBE()
        Try
            With tmpUbicaciones
                .ClaProducto = convertDTFromDb.ConvertString(dr.Item("ClaProducto"))
                .Existencia = convertDTFromDb.ConvertDecimal(dr.Item("Existencia"))
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .Ubicacion = convertDTFromDb.ConvertString(dr.Item("Ubicacion"))
            End With
            Return tmpUbicaciones
        Catch ex As Exception
            Throw
        Finally
            tmpUbicaciones = Nothing
        End Try
    End Function
End Class
